Notes/Domino 6 and 7 Forum : RE: Call an agent from an agent

Notes/Domino 6 and 7 Forum

RE: Call an agent from an agent

RE: Call an agent from an agent
Posted by ~Lily Nonwetherjip on 15.Jan.04 at 03:36 PM using a Web browser
Category: Applications Development

Release: 6.0.3

Platform: Windows XP

If you must - you can do it like this (u should really bite the bullet and combine the two agents - it's less hassle than you think!):

Declarations:
Dim db As NotesDatabase
Dim agent As NotesAgent
Dim agentNameG As String
Dim kwdSuccess As String
Dim AgError As String
Dim sAgentProcess As String
Dim docsProcessed As Integer

Sub Initialise
Dim s As New NotesSession
Set db = s.CurrentDatabase

Dim agentLog As New NotesLog("Agent log")
Call agentLog.OpenAgentLog

On Error Goto processError

Call Main

Exit Sub

ProcessError:
Call agentLog.LogAction("Error:"+ Str(Err)& Error$)
Exit Sub
End Sub

Sub Main
Call agentNameRun("agCustNHold")
If agent.RunOnServer = 0 Then
Call agentNameRun("agCustHold")
end if
End Sub

Function agentNameRun(agentName As String) As String
agentNameG = agentName
Set agent = db.GetAgent(agentName)
End Function

HTH,
R